00100	BEGIN "MAKE"
00200		DEFINE ↓="(13&10)";
00300	
00400		STRING PROCEDURE N(INTEGER X);
00500	BEGIN
00600			OUTSTR("MAKNUM ");
00700			RETURN(((X%'200)+'100)&(X LAND '177));
00800	END;
00900	
01000		DEFINE Q="'177";
01100	
01200	OUTSTR("OPEN ");
01300		OPEN(1,"DSK",0,0,2,0,0,0);
01400	OUTSTR("ENTER ");
01500		ENTER(1,"XAPCMD",0);
01600	OUTSTR("OUT ");
01700		OUT(1,Q&"I"&N(100)&N(100));
01800	OUTSTR("OUT ");
01900		OUT(1,Q&"⊗"&'41&"TORUS.PLT"&↓);
02000	OUTSTR("RELEASE."&↓);
02100		RELEASE(1);
02200	
02300	END "MAKE";